subedgar20160110<-read.csv("/Users/sn0wfree/Dropbox/InvestorAttention_data/R_datashow/log20160111.csv",header=1)
head(subedgar20160110, n=10)